ETO Development Tools 1

home *** CD-ROM | disk | FTP | other *** search

/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / Programming / MPW Interfaces & Libraries 3.1 / AIncludes / PackMacs.a < prev next >

Wrap

Text File | 1989-10-13 | 12.7 KB | 548 lines | [TEXT/MPS ]

; Version: 1.93 ; Created: Thursday, April 20, 1989 at 12:41:22 PM ; ; File: PackMacs.a ; ; Assembler Interface to the Macintosh Libraries ; Copyright Apple Computer, Inc. 1984-1988 ; All Rights Reserved ; ;-------------------------------------------------------------------- ; ; Package Equates -- This file defines the high-level equates for the ; Standard File, Disk Initialization, International Utilities, and ; Binary-Decimal Conversion packages, and the List Manager. The equates ; for the Floating-PointArithmetic and Transcendental Functions packages ; can be found in SANEMacs.a. ;-------------------------------------------------------------------- listMgr EQU 0 ; List Manager ; 1 reserved for use by Apple Computer, Inc. dskInit EQU 2 ; Disk Initialization stdFile EQU 3 ; Standard File flPoint EQU 4 ; Floating-Point Arithmetic trFunc EQU 5 ; Transcendental Functions intUtil EQU 6 ; International Utilities bdConv EQU 7 ; Binary/Decimal Conversion ; Equates for STANDARD FILE PACKAGE putDlgID EQU -3999 ; SFPutFile dialog template ID getDlgID EQU -4000 ; SFGetFile dialog template ID putSave EQU 1 ; save button putCancel EQU 2 ; cancel button putEject EQU 5 ; eject button putDrive EQU 6 ; drive button putName EQU 7 ; editTExt item for file name getOpen EQU 1 ; open button getCancel EQU 3 ; cancel button getEject EQU 5 ; eject button getDrive EQU 6 ; drive button getNmList EQU 7 ; userItem for file name list getScroll EQU 8 ; userItem for scroll bar ; Reply record data structure rGood EQU 0 ; ignore command if FALSE rType EQU 2 ; file type rVolume EQU 6 ; volume reference number rVersion EQU 8 ; file's version number rName EQU 10 ; file name ; Routine selectors SFPutFile EQU 1 SFPPutFile EQU 3 SFGetFile EQU 2 SFPGetFile EQU 4 ; Equates for DISK INITIALIZATION PACKAGE ; Routine selectors DILoad EQU 2 DIUnload EQU 4 DIBadMount EQU 0 DIFormat EQU 6 DIVerify EQU 8 DIZero EQU 10 ; Result codes are defined in SysEqu.a ; Equates for INTERNATIONAL PACKAGE ; Routine selectors IUGetIntl EQU 6 IUSetIntl EQU 8 IUDateString EQU 0 IUDatePString EQU 14 IUTimeString EQU 2 IUTimePString EQU 16 IUMetric EQU 4 IUMagString EQU 10 IUMagIDString EQU 12 ; Data structures for International Utilities ; International 0 record decimalPt EQU 0 ; ASCII character for decimal point thousSep EQU 1 ; ASCII character for thousand separator listSep EQU 2 ; ASCII character for list separator currSym EQU 3 ; ASCII for currency symbol (3 bytes long) currFmt EQU 6 ; currency format flags dateOrder EQU 7 ; short date form - DMY,YMD, or MDY shrtDateFmt EQU 8 ; date elements format flag dateSep EQU 9 ; ASCII for date separator timecycle EQU 10 ; indicates 12 or 24 hr cycle timeFmt EQU 11 ; time elements format flags mornStr EQU 12 ; ASCII for trailing string from 0:00 to 11:59 eveStr EQU 16 ; ASCII for trailing string from 12:00 to 23:59 timeSep EQU 20 ; ASCII for the time separator timeSuff EQU 21 ; suffix string used in 24 hr mode metricSys EQU 29 ; indicates metric or English system intl0Vers EQU 30 ; version: high byte = country. low byte = vers ; International 1 record days EQU 0 months EQU 112 suppressDay EQU 304 lngDateFmt EQU 305 dayLeading0 EQU 306 abbrLen EQU 307 st0 EQU 308 st1 EQU 312 st2 EQU 316 st3 EQU 320 st4 EQU 324 intl1Vers EQU 328 localRtn EQU 330 ; Constants for manipulation of international resources ; Way to specify desired date format shortDate EQU 0 longDate EQU 1 abbrevDate EQU 2 ; Masks used for setting and testing currency format flags currLeadingZ EQU 128 ; set if leading zero currTrailingZ EQU 64 ; set if trailing zero currNegSym EQU 32 ; set if minus sign for negative num, reset if parentheses} currSymLead EQU 16 ; set if currency symbol leads, reset if trails} zeroCycle EQU 1 ; 0:00 AM/PM format ; Constants specifying absolute value of short date form mdy EQU 0 ; month,day,year dmy EQU 1 ; day,month,year ymd EQU 2 ; year,month,day myd EQU 3 ; month, day, year dym EQU 4 ; day, year, month ydm EQU 5 ; year, day, month longDay EQU 0 ; day of month longWeek EQU 1 ; day of week longMonth EQU 2 ; month of year longYear EQU 3 ; year supDay EQU 1 ; suppress day of month supWeek EQU 2 ; suppress day of week supMonth EQU 4 ; suppress month supYear EQU 8 ; suppress year ; Masks used for date element format flags century EQU 128 ; set if century, reset if no century mntLdingZ EQU 64 ; set if leading 0 for month dayLdingZ EQU 32 ; set if leading zero for day ; Masks used for time element format flags hrLeadingZ EQU 128 ; set if leading zero for hours minLeadingZ EQU 64 ; set if leading zero for minutes secLeadingZ EQU 32 ; set if leading zero for seconds ; Country codes for version numbers verUS EQU 0 verFrance EQU 1 verBritain EQU 2 verGermany EQU 3 verItaly EQU 4 verNetherlands EQU 5 verBelgiumLux EQU 6 verSweden EQU 7 verSpain EQU 8 verDenmark EQU 9 verPortugal EQU 10 verFrCanada EQU 11 verNorway EQU 12 verIsrael EQU 13 verJapan EQU 14 verAustralia EQU 15 verArabia EQU 16 verFinland EQU 17 verFrSwiss EQU 18 verGrSwiss EQU 19 verGreece EQU 20 verIceland EQU 21 verMalta EQU 22 verCyprus EQU 23 verTurkey EQU 24 verYugoslavia EQU 25 ; Equates for BINARY-DECIMAL CONVERSION PACKAGE ; Routine selectors numToString EQU 0 stringToNum EQU 1 ; List Manager Equates rView EQU 0 ; Rect in which we are viewed port EQU 8 ; Grafport that owns us indent EQU 12 ; Indent line/fields in cell cellSize EQU 16 ; Cell size visible EQU 20 ; lines/fields visible bounds vScroll EQU 28 ; vertical scroll bar (or NIL) hScroll EQU 32 ; horizontal scroll bar (or NIL) selFlags EQU 36 ; Multiple selections allowed lActive EQU 37 ; active or inactive boolean lReserved EQU 38 ; private flags used internally listFlags EQU 39 ; autoscrolling flags, etc. clikTime EQU 40 ; time of last click clikLoc EQU 44 ; position of last click mouseLoc EQU 48 ; current position of mouse lClikLoop EQU 52 ; routine to call during ListClick lastClick EQU 56 ; the last cell that was clicked in refCon EQU 60 ; reference value listDefHandle EQU 64 ; Handle to list defproc userHandle EQU 68 ; general storage for user dataBounds EQU 72 ; Bounds of lines/fields cells EQU 80 ; Handle to data maxIndex EQU 84 ; index of lastcell + 1 cellArray EQU 86 ; offsets to cells sizeList EQU 86 ; size sans selections ; these are equates for accessing the SelFlags byte ; All flags are true if one lOnlyOne EQU 7 ; 0 = multiple selections, 1 = one lExtendDrag EQU 6 ; 1 = drag select without shift key lNoDisjoint EQU 5 ; 1 = turn off selections on click lNoExtend EQU 4 ; 1 = don't extend shift selections lNoRect EQU 3 ; 1 = don't grow (shift,drag) selection as rect lUseSense EQU 2 ; 1 = shift should use sense of start cell lNoNilHilite EQU 1 ; 1 = don't hilite empty cells ; these are bit numbers within the listFlags byte ; All flags are true if one lDoVAutoscroll EQU 1 ; 1 = allow vertical autoscrolling lDoHAutoscroll EQU 0 ; 1 = allow horizontal autoscrolling ; these are the messages sent to a list defproc lInitMsg EQU 0 ; tell drawing routines to init themselves lDrawMsg EQU 1 ; draw (and de/select) the indicated data lHiliteMsg EQU 2 ; invert hilite state of specified cell lCloseMsg EQU 3 ; shut down, the list is being disposed ; For package invocation ; First arg is routine selector, second is the trap MACRO _PackCall MOVE.W &SYSLIST[1],-(SP) &SYSLIST[2] ENDM ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ ; Disk Initialization ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ MACRO _DILoad _PackCall #DILoad,_Pack2 ENDM MACRO _DIUnLoad _PackCall #DIUnLoad,_Pack2 ENDM MACRO _DIBadMount _PackCall #DIBadMount,_Pack2 ENDM MACRO _DIFormat _PackCall #DIFormat,_Pack2 ENDM MACRO _DIVerify _PackCall #DIVerify,_Pack2 ENDM MACRO _DIZero _PackCall #DIZero,_Pack2 ENDM ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ ; Standard File ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ MACRO _SFPutFile _PackCall #SFPutFile,_Pack3 ENDM MACRO _SFPPutFile _PackCall #SFPPutFile,_Pack3 ENDM MACRO _SFGetFile _PackCall #SFGetFile,_Pack3 ENDM MACRO _SFPGetFile _PackCall #SFPGetFile,_Pack3 ENDM ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ ; International Utilities ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ MACRO _IUGetIntl _PackCall #IUGetIntl,_Pack6 ENDM MACRO _IUSetIntl _PackCall #IUSetIntl,_Pack6 ENDM MACRO _IUDateString _PackCall #IUDateString,_Pack6 ENDM MACRO _IUDatePString _PackCall #IUDatePString,_Pack6 ENDM MACRO _IUTimeString _PackCall #IUTimeString,_Pack6 ENDM MACRO _IUTimePString _PackCall #IUTimePString,_Pack6 ENDM MACRO _IUMetric _PackCall #IUMetric,_Pack6 ENDM MACRO _IUMagString _PackCall #IUMagString,_Pack6 ENDM MACRO _IUMagIDString _PackCall #IUMagIDString,_Pack6 ENDM ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ ; Binary-Decimal Conversion ;QQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQQ MACRO _StringToNum _PackCall #stringToNum,_Pack7 ENDM MACRO _NumToString _PackCall #numToString,_Pack7 ENDM ;--------------------------------------------------------------------------- ; ; These are the definitions for the List Manager calls ; implemented as Pack0. ; ;--------------------------------------------------------------------------- lActivate EQU 0 lAddColumn EQU 4 lAddRow EQU 8 lAddToCell EQU 12 lAutoScroll EQU 16 lCellSize EQU 20 lClick EQU 24 lClrCell EQU 28 lDelColumn EQU 32 lDelRow EQU 36 lDispose EQU 40 lDoDraw EQU 44 lDraw EQU 48 lFind EQU 52 lGetCell EQU 56 lGetSelect EQU 60 lLastClick EQU 64 lNew EQU 68 lNextCell EQU 72 lRect EQU 76 lScroll EQU 80 lSearch EQU 84 lSetCell EQU 88 lSetSelect EQU 92 lSize EQU 96 lUpdate EQU 100 MACRO _LActivate _PackCall #lActivate,_Pack0 ENDM MACRO _LAddColumn _PackCall #lAddColumn,_Pack0 ENDM MACRO _LAddRow _PackCall #lAddRow,_Pack0 ENDM MACRO _LAddToCell _PackCall #lAddToCell,_Pack0 ENDM MACRO _LAutoScroll _PackCall #lAutoScroll,_Pack0 ENDM MACRO _LCellSize _PackCall #lCellSize,_Pack0 ENDM MACRO _LClick _PackCall #lClick,_Pack0 ENDM MACRO _LClrCell _PackCall #lClrCell,_Pack0 ENDM MACRO _LDelColumn _PackCall #lDelColumn,_Pack0 ENDM MACRO _LDelRow _PackCall #lDelRow,_Pack0 ENDM MACRO _LDispose _PackCall #lDispose,_Pack0 ENDM MACRO _LDoDraw _PackCall #lDoDraw,_Pack0 ENDM MACRO _LDraw _PackCall #lDraw,_Pack0 ENDM MACRO _LFind _PackCall #lFind,_Pack0 ENDM MACRO _LGetCell _PackCall #lGetCell,_Pack0 ENDM MACRO _LGetSelect _PackCall #lGetSelect,_Pack0 ENDM MACRO _LLastClick _PackCall #lLastClick,_Pack0 ENDM MACRO _LNew _PackCall #lNew,_Pack0 ENDM MACRO _LNextCell _PackCall #lNextCell,_Pack0 ENDM MACRO _LRect _PackCall #lRect,_Pack0 ENDM MACRO _LScroll _PackCall #lScroll,_Pack0 ENDM MACRO _LSearch _PackCall #lSearch,_Pack0 ENDM MACRO _LSetCell _PackCall #lSetCell,_Pack0 ENDM MACRO _LSetSelect _PackCall #lSetSelect,_Pack0 ENDM MACRO _LSize _PackCall #lSize,_Pack0 ENDM MACRO _LUpdate _PackCall #lUpdate,_Pack0 ENDM